type TProc = procedure;

TProc();